<% @ LANGUAGE="VBSCRIPT" %> <% If Session("szo_id") = "" Then %> <% Else id = Session("szo_id") gisa_link = Trim(request("name")) title = request("title") title = replace(title, "", "") title = replace(title, "", "") title = replace(title, "%20", " ") title = CheckWord(title) set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect GSQL = "Select count(*) AS cnt from gisa_scrap where (gisa_link = '" & gisa_link & "' AND id = '" & id & "')" Set GGrs = Server.CreateObject("ADODB.Recordset") GGrs.Open GSQL,Dbcon If GGrs("cnt") = 0 Then Set Grs = Server.CreateObject("ADODB.Recordset") SQL = "Insert into gisa_scrap (gisa_link, id, title, wdate, ip) values " SQL = SQL & "('" & gisa_link & "'" SQL = SQL & ",'" & id & "'" SQL = SQL & ",'" & title & "'" SQL = SQL & ", current date" SQL = SQL & ",'" & Request.ServerVariables("REMOTE_ADDR") & "')" Set Grs = Dbcon.Execute(SQL) set Grs = Nothing response.redirect "http://sports.chosun.com/service/scrap/list_myscrap.htm" Dbcon.close set Dbcon = Nothing else %> <% Dbcon.close set Dbcon = Nothing End If End If %>